home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / GTQ Library 1.2 / Sample Scripts / ShufflePlayCD < prev    next >
Encoding:
Text File  |  1994-05-03  |  1.4 KB  |  31 lines  |  [TEXT/ToyS]
  1. m number (number of tracks on audio CD)) to trackVar
  2.             repeat until (playedTracks does not contain trackVar)
  3.                 copy (random number (number of tracks on audio CD)) to trackVar
  4.             end repeat
  5.             set numPlayed to numPlayed + 1
  6.             try
  7.                 play audio CD starting with track (trackVar)
  8.             on error
  9.                 eject CD
  10.                 quit
  11.             end try
  12.             stop audio CD after track (trackVar)
  13.             set ti to (track information for audio CD for track (trackVar))
  14.             set trackTime to (((mins of ti) * 60) + (secs of ti))
  15.             set playedTracks to (playedTracks & trackVar)
  16.             set stat to (status of audio CD)
  17.         end if
  18.         set tleft to (trackTime - (((track mins of stat) * 60) + (track secs of stat) - 10))
  19.         if tleft < 0 then set tleft to 0
  20.     on error
  21.         set tleft to 1
  22.     end try
  23.     if numPlayed = numTracks then quit
  24.     return tleft
  25. end idle
  26.  
  27. on GiveMePlayedTracks()
  28.     global playedTracks
  29.     return playedTracks
  30. end GiveMePlayedTracks
  31.